﻿
Public Class RIDebitosVendedor
    Dim teste As Double
    Private Sub XrLabel4_BeforePrint(sender As Object, e As Printing.PrintEventArgs) Handles XrLabel4.BeforePrint
        Try
            XrLabel4.Text = FormatNumber(XrLabel17.Summary.GetResult / XrLabel12.Summary.GetResult, 0)
        Catch ex As Exception
            XrLabel4.Text = "0"
        End Try
    End Sub
    Private Sub XrLabel25_BeforePrint(sender As Object, e As Printing.PrintEventArgs) Handles XrLabel25.BeforePrint
        Try
            XrLabel25.Text = FormatNumber(XrLabel26.Summary.GetResult / XrLbSumValor.Summary.GetResult, 0)
        Catch ex As Exception
            XrLabel25.Text = "0"
        End Try
    End Sub
End Class